

agilizando <- function(x)
{
cat("\n","\t","OBS1: Os novos dados calculados, os resultados da Anova foram salvos no diretorio como Resultado_Anova.csv e Dados_Calculados.csv ","\t","\n")
colnames(x)<-c ("Ninho","Long","Lat","Fragmento","Area") 
x$Fragmento<-as.factor(x$Fragmento)
x$Ninho<-as.factor(x$Ninho)
x.local<- table(x$Ninho,x$Fragmento)##Contando spp por local (fragmento) e selecionando uma localidade (fragmento)
x.local
total.spp=apply(x.local,2,sum)##calculando o total de individuos/ninhos
total.spp
##calcular o nmero de espcie por local
x.spplocal=x.local>0
riqueza=apply(x.spplocal,2,sum)## calculando a riqueza
riqueza
##PEGANDO OS TAMANHOS DOS FRAGMETNOS PARA CALCULAR A DENSIDDAE
tamanho.fragmentos<- aggregate(x=x$Area, by=list(x$Fragmento), FUN=mean)
Area<-c(tamanho.fragmentos[,2])
dados.totais<- data.frame(Area,riqueza,total.spp)
dados.totais
colnames(dados.totais)<-c("Area","Riqueza","Total")
### agora sim calculando a densidade por fragmento e j transformando em ninhos por hectare
dados.totais$Densidade=(dados.totais$Total/dados.totais$Area)*10000
dados.totais
### plotando o grafico de dispersao e achando os coeficientesp por regresso linear
par(mfrow=c(2,2))
A1<-plot(dados.totais$Area~dados.totais$Riqueza)
A1<-lm(dados.totais$Area~dados.totais$Riqueza)
abline(A1, col="red") 
A2<-plot(dados.totais$Area~dados.totais$Total)
A2<-lm(dados.totais$Area~dados.totais$Total)
abline(A2,col="green")
A3<-plot(dados.totais$Area~dados.totais$Densidade)
A3<-lm(dados.totais$Area~dados.totais$Densidade)
abline(A3,col="blue")
B1<-lm(dados.totais$Area~dados.totais$Riqueza+dados.totais$Total)
abline(B1)
anova(B1)
resultado1<- anova(B1)
resultado2<-dados.totais
write.csv2(resultado1, file="Resultados_Anova.csv")
write.csv2(resultado2, file="Dados_Calculados.csv")
matriz.a<- matrix(NA,nrow=nrow(x),ncol=2)
matriz.a[,1]<-as.numeric(x[,2])
matriz.a[,2]<-as.numeric(x[,3])
row.names(matriz.a)<- x[,1]
matriz.a #matrix com dados LONG e LAT em UTM
distancia<-matrix(NA,nrow=nrow(matriz.a),ncol=ncol(matriz.a),dimnames=dimnames(matriz.a))
distancia[,1]<- matriz.a[,1] 
distancia[,2]<- matriz.a[,2] 
distancia
saida<-dist(distancia) #Clculo da matriz de distancia
saida
resultado3<-as.matrix(saida)
write.csv2(resultado3, file="Matriz_Distancia.csv")
cat("\t","\n","\t","OBS2: Para visualizar abra a matriz de distancia que foi salva no seu diretorio como Matriz_Distancia.csv","\t","\n","\n")
return (resultado1)
}
